global boj 
rollout unnamedRollout "Untitled" width:162 height:230
(
	button btn3 "HairPick" pos:[37,35] width:87 height:22
	button btn4 "FacePick" pos:[38,75] width:89 height:22
	button btn5 "HairRet" pos:[35,123] width:90 height:22
	button btn6 "FaceRet" pos:[31,171] width:92 height:21
	on btn3 pressed  do
(
	       
		clearSelection()
		select $root_hair
		boj=$.pos
		$.parent=undefined
		$.pos=[0,0,0]
		rotate $(angleaxis 90[1,0,0])
		--select #($root_hair,$Sphere001,$Box001)
	)
	on btn5 pressed  do
(
		clearSelection()
		select $root_hair
		rotate $(angleaxis -90[1,0,0])
		$.pos=boj
		$.parent=$'Bip001 Head'
	)
)
CreateDialog unnamedRollout